home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed27.d64 / word test (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  27KB  |  652 lines
  1. 10 REM                                               <<<  ARMED FORCES TEST >>>
  2. 11 REM                                               <<<   WORD TEST ANSW.  >>>
  3. 12 :
  4. 13 :
  5. 100 GOTO 30000
  6. 398 :
  7. 399 :
  8. 400 POKE 214,9:PRINT
  9. 410 IF AX$="A"THEN PRINT TAB(18)"[144][203][197][217] [193][146]":FOR T=1 TO 600:NEXT T:RETURN
  10. 420 IF AX$="B"THEN PRINT TAB(18)"[144][203][197][217] [194][146]":FOR T=1 TO 600:NEXT T:RETURN
  11. 430 IF AX$="C"THEN PRINT TAB(18)"[144][203][197][217] [195][146]":FOR T=1 TO 600:NEXT T:RETURN
  12. 440 IF AX$="D"THEN PRINT TAB(18)"[144][203][197][217] [196][146]":FOR T=1 TO 600:NEXT T:RETURN
  13. 450 POKE 214,18:PRINT
  14. 460 IF AX$="A"THEN PRINT TAB(5)"[158][203][197][217] [193][146]":FOR T=1 TO 600:NEXT T:RETURN
  15. 470 IF AX$="B"THEN PRINT TAB(5)"[158][203][197][217] [194][146]":FOR T=1 TO 600:NEXT T:RETURN
  16. 480 IF AX$="C"THEN PRINT TAB(5)"[158][203][197][217] [195][146]":FOR T=1 TO 600:NEXT T:RETURN
  17. 490 IF AX$="D"THEN PRINT TAB(5)"[158][203][197][217] [196][146]":FOR T=1 TO 600:NEXT T:RETURN
  18. 500 GOSUB 5000
  19. 510 SC=SC+4
  20. 512 POKE 214,13:PRINT
  21. 515 PRINT TAB(26)"[129][180]           [170]
  22. 520 [153] [163]26)"SYSABSUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRINT
  23. 521 PRINT TAB(26)"[182]  [195][207][210][210][197][195][212]  [181]
  24. 522 [153] [163]26)"ABSANDANDANDANDANDANDANDANDANDANDANDINTWAITPRINT
  25. 525 PRINT TAB(26)"[129][180]           [170][153]
  26. 550 [129] T[178]1 [164] 500:[130] T
  27. 555 [142]
  28. 600 [141] 8000
  29. 601 [151] 214,13:[153]
  30. 603 [153] [163]26)"LISTSGN           +
  31. 604 PRINT TAB(26)"[150][182][183][183][183][183][183][183][183][183][183][183][183][181]
  32. 605 [153] [163]26)"ABS  (null)(null)(null)(null)CHR$ !  INT
  33. 606 PRINT TAB(26)"[182][175][175][175][175][175][175][175][175][175][175][175][181][146][153]
  34. 607 [153] [163]26)"LISTSGN           +PRINT"
  35. 630 [129] T[178]1 [164]1000:[130] T
  36. 730 [142]
  37. 3500 [129] T[178]1 [164] 1500:[130] T:[142]
  38. 5000 [143]                                                       << DEEP CHIME >>
  39. 5010 S[178]54272:[151] 53285,7:[151] S[170]4,0
  40. 5020 V[178]S[170]24:W[178]S[170]4:FU[178]S[170]1:FL[178]S:AD[178]S[170]5:SR[178]S[170]6:SL[178]S[170]14:SU[178]S[170]15:[151] SR,0
  41. 5030 [151] S[170]24,15
  42. 5100 [143]:  CHANGE N IN 5110 FOR NUMBER OF CHIMES
  43. 5110 [129] N[178]1 [164] 1 :[151] AD,14:[151] SR,64[170]12
  44. 5120 [151] SU,10:[151] SL,10
  45. 5130 [151] FU,4:[151] W,21:[129] T[178]1 [164] 25:[130] T
  46. 5140 [151] W,20:[129] T[178]1 [164] 700:[130] T:[141] 5200:[130] N
  47. 5190 [151] SR,0:[151] W,20
  48. 5200 [142]
  49. 7999 :
  50. 8000 [129] L[178]54272 [164] 54295:[151] L,0:[130]:[151] 54296,15
  51. 8001 :
  52. 8010 [151]54277,8:[151]54278,255:[151]54276,21:F2[178]255
  53. 8020 [129]Z[178]1[164] 2:[151]54287,F2
  54. 8025 [143]: TO CHANGE NUMBER OF SQUIRTS, CHANGE VALUE OF Z.
  55. 8030 [129]F1[178]255[164]0[169][171]20:[151]54273,F1:F2[178]F2[171].4:[130]F1:[130]Z:[151]54278,15
  56. 8040 [142]
  57. 8050 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,15
  58. 8060 [151]54277,8:[151]54278,255:[151]54276,21:F2[178]255
  59. 8070 [129]Z[178]1[164] 3:[151]54287,F2:[143] NO. OF CYCLES
  60. 8080 [129]F1[178]255[164]0[169][171]20:[151]54273,F1:F2[178]F2[171].4:[130]F1:[130]Z:[151]54278,15
  61. 8090 [142]
  62. 29996 :
  63. 29997 [143]                                                 <<<  TIMING LOOP  >>>
  64. 29998 :
  65. 29999 :
  66. 30000 R$[178]"LOADLIST ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND "
  67. 30060 R1$[178]" CONT SPC(SPC(SPC(SPC(SPC(SYS (null)RIGHT$LEN(null)CLOSE(null)LEFT$VAL LEN(null)(null)(null)VAL(null)(null) (null)VALATN(null)RIGHT$(null)CHR$ CONTSPC(SPC(SPC(SPC(SPC( "
  68. 30070 R2$[178]"LIST USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRPRINT "
  69. 30100 S$[178]"DEF(null)HE CORRECT ANSWER IS:
  70. 30110 N$=" MEANS MOST NEARLY"
  71. 30120 Q$="[158]  [209]UESTION [206]O. ":Q=1
  72. 30130 PRINT CHR$(14)
  73. 30997 :
  74. 30998 REM                                      <<< START TEST WITH ANSWERS  >>>
  75. 30999 :
  76. 31000 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  77. 31007 PRINT Q$;Q:PRINT"[153]"
  78. 31010 PRINT"  [211]UBSUME MEANS MOST NEARLY
  79. 31015 [153]"  USRUSRUSRUSRUSRUSRUSR"
  80. 31020 [153]"     A.  UNDERSTATE
  81. 31030 PRINT"     B.  ABSORB
  82. 31040 [153]"     C.  INCLUDE
  83. 31050 PRINT"     D.  BELONG
  84. 31060 [161] AX$:[139] AX$[178]""[167] 31060
  85. 31070 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  86. 31075 [139] AX$[178]"C"[167] [141] 500:[137] 31100
  87. 31080 [139] AX$[178]"C"[167] [167] [141] 500:[137]31100
  88. 31090 [139] AX$[179][177]"D"[167] [141] 600
  89. 31095 [153] S$:[153] [163]2)"INCLUDE
  90. 31096 GOSUB 3500
  91. 31098 :
  92. 31099 :
  93. 31100 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  94. 31105 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  95. 31120 PRINT"  [195]ONSENSUS";:PRINTN$
  96. 31121 PRINT"  [183][183][183][183][183][183][183][183][183]"
  97. 31130 PRINT"     A.  ABRIDGEMENT
  98. 31140 [153]"     B.  ACCORD
  99. 31150 PRINT"     C.  PRESUMPTION
  100. 31160 [153]"     D.  QUOTA
  101. 31170 GET AX$:IF AX$=""THEN 31170
  102. 31175 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  103. 31180 IF AX$="B"THEN GOSUB 500:GOTO 31200
  104. 31190 IF AX$<>"B"THEN GOSUB 600
  105. 31195 PRINT S$:PRINT TAB(5)"ACCORD";
  106. 31196 GOSUB 3500
  107. 31200 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  108. 31205 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  109. 31210 POKE 53272,23
  110. 31220 PRINT"  [193]LTERCATION";:PRINT N$
  111. 31221 PRINT"  [183][183][183][183][183][183][183][183][183][183][183]"
  112. 31230 PRINT"     A.  DEFEAT
  113. 31240 [153]"     B.  CONCURANCE
  114. 31250 PRINT"     C.  VEXATION
  115. 31260 [153]"     D.  CONTROVERSY
  116. 31270 GET AX$:IF AX$=""THEN 31270
  117. 31275 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  118. 31280 IF AX$="D"THEN GOSUB 500:GOTO 31300
  119. 31290 IF AX$<>"D"THEN GOSUB 600
  120. 31295 PRINT S$:PRINT TAB(5)"CONTROVERSY
  121. 31296 [141] 3500
  122. 31298 :
  123. 31299 :
  124. 31300 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  125. 31305 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  126. 31320 [153]"  RIGHT$RRESOLUTE";:[153] NA$
  127. 31321 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  128. 31330 [153]"     A.  WAVERING
  129. 31340 PRINT"     B.  INSUBORDINATE
  130. 31350 [153]"     C.  IMPUDENT
  131. 31360 PRINT"     D.  UNOBSERVANT
  132. 31370 [161] AX$:[139] AX$[178]""[167] 31370
  133. 31375 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  134. 31380 [139] AX$[178]"A"[167] [141] 500:[137] 31400
  135. 31390 [139] AX$[179][177]"A"[167] [141] 600
  136. 31395 [153] S$:[153] [163]5)"WAVERING
  137. 31396 GOSUB 3500
  138. 31398 :
  139. 31399 :
  140. 31400 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  141. 31405 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  142. 31420 PRINT"  [204]ACONIC";:PRINT N$
  143. 31421 PRINT"  [183][183][183][183][183][183][183]"
  144. 31430 PRINT"     A.  SLOTHFUL
  145. 31440 [153]"     B.  CONCISE
  146. 31450 PRINT"     C.  PUNCTUAL
  147. 31460 [153]"     D.  MELANCHOLY
  148. 31470 GET AX$:IF AX$=""THEN 31470
  149. 31475 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  150. 31480 IF AX$="B"THEN GOSUB 500:GOTO 31500
  151. 31490 IF AX$<>"B"THEN GOSUB 600
  152. 31495 PRINT S$:PRINT TAB(5)"CONCISE
  153. 31496 [141] 3500
  154. 31498 :
  155. 31499 :
  156. 31500 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  157. 31505 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  158. 31520 [153]"  ATNUDITION";:[153] N$
  159. 31521 [153]"  USRUSRUSRUSRUSRUSRUSRUSR"
  160. 31530 [153]"     A.  RECEPTION
  161. 31540 PRINT"     B.  CONTEST
  162. 31550 [153]"     C.  DISPLAY
  163. 31560 PRINT"     D.  HEARING
  164. 31570 [161] AX$:[139] AX$[178]""[167] 31570
  165. 31575 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  166. 31580 [139] AX$[178]"D"[167] [141] 500:[137] 31600
  167. 31590 [139] AX$[179][177]"D"[167] [141] 600
  168. 31595 [153] S$:[153] [163]5)"HEARING
  169. 31596 GOSUB 3500
  170. 31598 :
  171. 31599 :
  172. 31600 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  173. 31605 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  174. 31620 PRINT"  [206]OVICES";:PRINT N$
  175. 31621 PRINT"  [183][183][183][183][183][183][183]"
  176. 31630 PRINT"     A.  VOLUNTEERS
  177. 31640 [153]"     B.  EXPERTS
  178. 31650 PRINT"     C.  BEGINNERS
  179. 31660 [153]"     D.  AMATEURS
  180. 31670 GET AX$:IF AX$=""THEN 31670
  181. 31675 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  182. 31680 IF AX$="C"THEN GOSUB 500:GOTO 31700
  183. 31690 IF AX$<>"C"THEN GOSUB 600
  184. 31695 PRINT S$:PRINT TAB(5)"BEGINNERS
  185. 31696 [141] 3500
  186. 31698 :
  187. 31699 :
  188. 31700 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  189. 31705 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  190. 31720 [153]"  LENONCILLIATORY";:[153] N$
  191. 31721 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  192. 31730 [153]"     A.  PACIFIC
  193. 31740 PRINT"     B.  CONTENTIOUS
  194. 31750 [153]"     C.  OBLIGATORY
  195. 31760 PRINT"     D.  OFFENSIVE
  196. 31770 [161] AX$:[139] AX$[178]""[167] 31770
  197. 31775 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  198. 31780 [139] AX$[178]"A"[167] [141] 500:[137] 31800
  199. 31790 [139] AX$[179][177]"A"[167] [141] 600
  200. 31795 [153] S$:[153] [163]8)" PACIFIC
  201. 31796 GOSUB 3500
  202. 31798 :
  203. 31799 :
  204. 31800 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  205. 31805 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  206. 31820 PRINT"  [212]O COUNTERACT";:PRINT N$
  207. 31821 PRINT"     [183][183][183][183][183][183][183][183][183][183]"
  208. 31830 PRINT"     A.  TO UNDERMINE
  209. 31840 [153]"     B.  TO CENSURE
  210. 31850 PRINT"     C.  TO NEUTRALIZE
  211. 31860 [153]"     D.  TO PRESERVE
  212. 31870 GET AX$:IF AX$=""THEN 31870
  213. 31875 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  214. 31880 IF AX$="C"THEN GOSUB 500:GOTO 31900
  215. 31890 IF AX$<>"C"THEN GOSUB 600
  216. 31895 PRINT S$:PRINT TAB(5)"TO NEUTRALIZE
  217. 31896 [141] 3500
  218. 31898 :
  219. 31899 :
  220. 31900 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  221. 31905 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  222. 31920 [153]"  (null)RECEDENT";:[153] N$
  223. 31921 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSR"
  224. 31930 [153]"      A.  EXAMPLE
  225. 31940 PRINT"      B.  THEORY
  226. 31950 [153]"      C.  LAW
  227. 31960 PRINT"      D.  CONFORMITY
  228. 31970 [161] AX$:[139] AX$[178]""[167] 31970
  229. 31975 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  230. 31980 [139] AX$[178]"A"[167] [141] 500:[137] 32000
  231. 31990 [139] AX$[179][177]"A"[167] [141] 600
  232. 31994 [153] S$:[153] [163]5)"EXAMPLE
  233. 31995 GOSUB 3500
  234. 31997 :
  235. 31998 :
  236. 32000 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  237. 32005 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  238. 32020 PRINT"  [196]IAPHANOUS";:PRINT N$
  239. 32021 PRINT"  [183][183][183][183][183][183][183][183][183][183]"
  240. 32030 PRINT"      A.  TRANSPARENT
  241. 32040 [153]"      B.  OPAQUE
  242. 32050 PRINT"      C.  [196]IAPHRAGMATIC
  243. 32060 [153]"      D.  DISSUSIVE
  244. 32070 GET AX$:IF AX$=""THEN 32070
  245. 32075 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  246. 32080 IF AX$="A"THEN GOSUB 500:GOTO 32100
  247. 32090 IF AX$<>"A"THEN GOSUB 600
  248. 32094 PRINT S$:PRINT TAB(5)"TRANSPARENT
  249. 32095 [141] 3500
  250. 32097 :
  251. 32098 :
  252. 32100 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  253. 32105 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  254. 32120 [153]"  STR$EFERRED";:[153] N$
  255. 32121 [153]"  USRUSRUSRUSRUSRUSRUSRUSR"
  256. 32130 [153]"      A.  REVERSED
  257. 32140 PRINT"      B.  ACCELERATED
  258. 32150 [153]"      C.  FORBIDDEN
  259. 32160 PRINT"      D.  DELAYED
  260. 32170 [161] AX$:[139] AX$[178]""[167] 32170
  261. 32175 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  262. 32180 [139] AX$[178]"D"[167] [141] 500:[137] 32200
  263. 32190 [139] AX$[179][177]"D"[167] [141] 600
  264. 32194 [153] S$:[153] [163]5)"DELAYED
  265. 32195 GOSUB 3500
  266. 32197 :
  267. 32198 :
  268. 32200 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  269. 32205 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  270. 32220 PRINT"  [212]O ACCENTUATE";:PRINT N$
  271. 32221 PRINT"     [183][183][183][183][183][183][183][183][183][183]"
  272. 32230 PRINT"      A.  TO MODIFY
  273. 32240 [153]"      B.  TO HASTEN
  274. 32250 PRINT"      C.  TO INTENSIFY
  275. 32260 [153]"      D.  TO SUSTAIN
  276. 32270 GET AX$:IF AX$=""THEN 32270
  277. 32275 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  278. 32280 IF AX$="C"THEN GOSUB 500:GOTO 32300
  279. 32290 IF AX$<>"C"THEN GOSUB 600
  280. 32294 PRINT S$:PRINT TAB(5)"TO INTENSIFY
  281. 32295 [141] 3500
  282. 32297 :
  283. 32298 :
  284. 32300 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  285. 32305 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  286. 32320 [153]"  ATNUTHENTIC";:[153] N$
  287. 32321 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSR"
  288. 32330 [153]"      A.  DETAILED
  289. 32340 PRINT"      B.  RELIABLE
  290. 32350 [153]"      C.  VALUABLE
  291. 32360 PRINT"      D.  PRACTICAL
  292. 32370 [161] AX$:[139] AX$[178]""[167] 32370
  293. 32375 [139] AX$[178]"A"[176] AX$[178]"B"[176] AY$[178]"C"[176] AX$[178]"D"[167] [141] 450
  294. 32380 [139] AX$[178]"B"[167] [141] 500:[137] 32400
  295. 32390 [139] AX$[179][177]"B"[167] [141] 600
  296. 32394 [153] S$:[153] [163]5)"RELIABLE
  297. 32395 GOSUB 3500
  298. 32397 :
  299. 32398 :
  300. 32400 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  301. 32405 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  302. 32420 PRINT"  [213]NANIMITY";:PRINT N$
  303. 32421 PRINT"  [183][183][183][183][183][183][183][183][183]"
  304. 32430 PRINT"      A.  CONCURRENCE
  305. 32440 [153]"      B.  NAMELESSNESS
  306. 32450 PRINT"      C.  DISAGREEMENT
  307. 32460 [153]"      D.  EMPHASIS
  308. 32470 GET AX$:IF AX$=""THEN 32470
  309. 32475 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  310. 32480 IF AX$="A"THEN GOSUB 500:GOTO 32500
  311. 32490 IF AX$<>"A"THEN GOSUB 600
  312. 32494 PRINT S$:PRINT TAB(5)"CONCURRENCE
  313. 32495 [141] 3500
  314. 32497 :
  315. 32498 :
  316. 32500 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  317. 32505 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  318. 32520 [153]"  (null)OTORIOUS";:[153] N$
  319. 32521 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSR"
  320. 32530 [153]"      A.  CONDEMNED
  321. 32540 PRINT"      B.  WELL-KNOWN
  322. 32550 [153]"      C.  UNPLEASANT
  323. 32560 PRINT"      D.  VEXATIOUS
  324. 32570 [161] AX$:[139] AX$[178]""[167] 32570
  325. 32575 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  326. 32580 [139] AX$[178]"B"[167] [141] 500:[137] 32600
  327. 32590 [139] AX$[179][177]"B"[167] [141] 600
  328. 32594 [153] S$:[153] [163]5)"WELL-KNOWN
  329. 32595 GOSUB 3500
  330. 32597 :
  331. 32598 :
  332. 32600 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  333. 32605 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  334. 32620 PRINT"  [208]REVIOUS";:PRINT N$
  335. 32621 PRINT"  [183][183][183][183][183][183][183][183]"
  336. 32630 PRINT"      A.  ABANDONED
  337. 32640 [153]"      B.  FORMER
  338. 32650 PRINT"      C.  TIMELY
  339. 32660 [153]"      D.  YOUNGER
  340. 32670 GET AX$:IF AX$=""THEN 32670
  341. 32675 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  342. 32680 IF AX$="B"THEN GOSUB 500:GOTO 32700
  343. 32690 IF AX$<>"B"THEN GOSUB 600
  344. 32694 PRINT S$:PRINT TAB(5)"FORMER
  345. 32695 [141] 3500
  346. 32697 :
  347. 32698 :
  348. 32700 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  349. 32705 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  350. 32720 [153]"  ASCLEXIBLE";:[153] N$
  351. 32721 [153]"  USRUSRUSRUSRUSRUSRUSRUSR"
  352. 32730 [153]"      A.  BREAKABLE
  353. 32740 PRINT"      B.  FLAMMABLE
  354. 32750 [153]"      C.  WEAK
  355. 32760 PRINT"      D.  PLIABLE
  356. 32770 [161] AX$:[139] AX$[178]""[167] 32770
  357. 32775 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  358. 32780 [139] AX$[178]"D"[167] [141] 500:[137] 32800
  359. 32790 [139] AX$[179][177]"D"[167] [141] 600
  360. 32794 [153] S$:[153] [163]5)"PLIABLE
  361. 32795 GOSUB 3500
  362. 32797 :
  363. 32798 :
  364. 32800 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  365. 32805 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  366. 32820 PRINT"  [207]PTION";:PRINT N$
  367. 32821 PRINT"  [183][183][183][183][183][183]"
  368. 32830 PRINT"      A.  USE
  369. 32840 [153]"      B.  CHOICE
  370. 32850 PRINT"      C.  VALUE
  371. 32860 [153]"      D.  PREFERENCE
  372. 32870 GET AX$:IF AX$=""THEN 32870
  373. 32875 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  374. 32880 IF AX$="B"THEN GOSUB 500:GOTO 32900
  375. 32890 IF AX$<>"B"THEN GOSUB 600
  376. 32894 PRINT S$:PRINT TAB(5)"CHOICE
  377. 32895 [141] 3500
  378. 32897 :
  379. 32898 :
  380. 32900 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  381. 32905 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  382. 32920 [153]"  (null)O VERIFY";:[153] N$
  383. 32921 [153]"     USRUSRUSRUSRUSRUSR"
  384. 32930 [153]"      A.  EXAMINE
  385. 32940 PRINT"      B.  EXPLAIN
  386. 32950 [153]"      C.  CONFIRM
  387. 32960 PRINT"      D.  GUARANTEE
  388. 32970 [161] AX$:[139] AX$[178]""[167] 32970
  389. 32975 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  390. 32980 [139] AX$[178]"C"[167] [141] 500:[137] 33000
  391. 32990 [139] AX$[179][177]"C"[167] [141] 600
  392. 32994 [153] S$:[153] [163]5)"CONFIRM
  393. 32995 GOSUB 3500
  394. 32997 :
  395. 32998 :
  396. 33000 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  397. 33005 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  398. 33020 PRINT"  [208]ERT";:PRINT N$
  399. 33021 PRINT"  [183][183][183][183]"
  400. 33030 PRINT"      A.  ILL
  401. 33040 [153]"      B.  SAUCY
  402. 33050 PRINT"      C.  LAZY
  403. 33060 [153]"      D.  SLOW
  404. 33070 GET AX$:IF AX$=""THEN 33070
  405. 33075 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  406. 33080 IF AX$="B"THEN GOSUB 500:GOTO 33100
  407. 33090 IF AX$<>"B"THEN GOSUB 600
  408. 33094 PRINT S$:PRINT TAB(5)"SAUCY
  409. 33095 [141] 3500
  410. 33097 :
  411. 33100 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  412. 33105 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  413. 33120 [153]"  ATNESTHETIC";:[153] N$
  414. 33121 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSR"
  415. 33130 [153]"      A.  SENTIENT
  416. 33140 PRINT"      B.  SENSITIVE
  417. 33150 [153]"      C.  TASTEFUL
  418. 33160 PRINT"      D.  INARTISTIC
  419. 33170 [161] AX$:[139] AX$[178]""[167] 33170
  420. 33175 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  421. 33180 [139] AX$[178]"C"[167] [141] 500:[137] 33200
  422. 33190 [139] AX$[179][177]"C"[167] [141] 600
  423. 33194 [153] S$:[153] [163]5)"TASTEFUL
  424. 33195 GOSUB 3500
  425. 33197 :
  426. 33200 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  427. 33205 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  428. 33220 PRINT"  [196]ECIMATION";:PRINT N$
  429. 33221 PRINT"  [183][183][183][183][183][183][183][183][183][183]"
  430. 33230 PRINT"      A.  KILLING
  431. 33240 [153]"      B.  ANNIHILATION
  432. 33250 PRINT"      C.  ARMISTICE
  433. 33260 [153]"      D.  BRAWL
  434. 33270 GET AX$:IF AX$=""THEN 33270
  435. 33275 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  436. 33280 IF AX$="A"THEN GOSUB 500:GOTO 33300
  437. 33290 IF AX$<>"A"THEN GOSUB 600
  438. 33294 PRINT S$:PRINT TAB(5)"KILLING
  439. 33295 [141] 3500
  440. 33297 :
  441. 33300 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  442. 33305 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  443. 33320 [153]"  RIGHT$NDIGNANT";:[153] N$
  444. 33321 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSR"
  445. 33330 [153]"      A.  ANGRY
  446. 33340 PRINT"      B.  POOR
  447. 33350 [153]"      C.  INDIGENT
  448. 33360 PRINT"      D.  LAZY
  449. 33370 [161] AX$:[139] AX$[178]""[167] 33370
  450. 33375 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  451. 33380 [139] AX$[178]"A"[167] [141] 500:[137] 33400
  452. 33390 [139] AX$[179][177]"A"[167] [141] 600
  453. 33394 [153] S$:[153] [163]5)"ANGRY
  454. 33395 GOSUB 3500
  455. 33397 :
  456. 33400 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  457. 33405 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  458. 33420 PRINT"  [195]LICHE";:PRINT N$
  459. 33421 PRINT"  [183][183][183][183][183][183]"
  460. 33430 PRINT"      A.  COMMONPLACE
  461. 33440 [153]"      B.  BANALITY
  462. 33450 PRINT"      C.  HACKNEY
  463. 33460 [153]"      D.  PLATITUDE
  464. 33470 GET AX$:IF AX$=""THEN 33470
  465. 33475 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  466. 33480 IF AX$="D"THEN GOSUB 500:GOTO 33500
  467. 33490 IF AX$<>"D"THEN GOSUB 600
  468. 33494 PRINT S$:PRINT TAB(5)"PLATITUDE
  469. 33495 [141] 3500
  470. 33500 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  471. 33505 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  472. 33520 [153]"  LEFT$ARMONY";:[153] N$
  473. 33521 [153]"  USRUSRUSRUSRUSRUSRUSR"
  474. 33530 [153]"      A.  RHYTHM
  475. 33540 PRINT"      B.  PLEASURE
  476. 33550 [153]"      C.  DISCORD
  477. 33560 PRINT"      D.  AGREEMENT
  478. 33570 [161] AX$:[139] AX$[178]""[167] 33570
  479. 33575 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  480. 33580 [139] AX$[178]"D"[167] [141] 500:[137] 33600
  481. 33590 [139] AX$[179][177]"D"[167] [141] 600
  482. 33594 [153] S$:[153] [163]5)"AGREEMENT
  483. 33595 GOSUB 3500
  484. 33600 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  485. 33605 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  486. 33620 PRINT"  [201]NDOLENT";:PRINT N$
  487. 33621 PRINT"  [183][183][183][183][183][183][183][183]"
  488. 33630 PRINT"      A.  MODERATE
  489. 33640 [153]"      B.  HOPELESS
  490. 33650 PRINT"      C.  LAZY
  491. 33660 [153]"      D.  IDLE
  492. 33670 GET AX$:IF AX$=""THEN 33670
  493. 33675 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  494. 33680 IF AX$="C"THEN GOSUB 500:GOTO 33700
  495. 33690 IF AX$<>"C"THEN GOSUB 600
  496. 33694 PRINT S$:PRINT TAB(5)"LAZY
  497. 33695 [141] 3500
  498. 33700 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  499. 33705 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  500. 33720 [153]"  (null)ESPIRATION";:[153] N$
  501. 33721 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  502. 33730 [153]"      A.  RECOVERY
  503. 33740 PRINT"      B.  BREATHING
  504. 33750 [153]"      C.  PULSATION
  505. 33760 PRINT"      D.  SWEATING
  506. 33770 [161] AX$:[139] AX$[178]""[167] 33770
  507. 33775 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  508. 33780 [139] AX$[178]"B"[167] [141] 500:[137] 33900
  509. 33790 [139] AX$[179][177]"B"[167] [141] 600
  510. 33794 [153] S$:[153] [163]5)"BREATHING
  511. 33795 GOSUB 3500
  512. 33898 :
  513. 33899 :
  514. 33900 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  515. 33905 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  516. 33920 PRINT"  [214]IGILANT";:PRINT N$
  517. 33921 PRINT"  [183][183][183][183][183][183][183][183]"
  518. 33930 PRINT"      A.  SENSIBLE
  519. 33940 [153]"      B.  WATCHFUL
  520. 33950 PRINT"      C.  SUSPICIOUS
  521. 33960 [153]"      D.  RESTLESS
  522. 33970 GET AX$:IF AX$=""THEN 33970
  523. 33975 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  524. 33980 IF AX$="B"THEN GOSUB 500:GOTO 34000
  525. 33990 IF AX$<>"B"THEN GOSUB 600
  526. 33994 PRINT S$:PRINT TAB(5)"WATCHFUL
  527. 33995 [141] 3500
  528. 33998 :
  529. 33999 :
  530. 34000 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  531. 34005 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  532. 34020 [153]"  RIGHT$NCIDENTAL";:[153] N$
  533. 34021 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  534. 34030 [153]"      A.  INDEPENDENT
  535. 34040 PRINT"      B.  NEEDLESS
  536. 34050 [153]"      C.  INFREQUENT
  537. 34060 PRINT"      D.  CASUAL
  538. 34070 [161] AX$:[139] AX$[178]""[167] 34070
  539. 34075 [139] AX$[178]"A"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  540. 34080 [139] AX$[178]"D"[167] [141] 500:[137] 34100
  541. 34090 [139] AX$[179][177]"D"[167] [141] 600
  542. 34094 [153] S$:[153] [163]5)"CASUAL
  543. 34095 GOSUB 3500
  544. 34098 :
  545. 34099 :
  546. 34100 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  547. 34105 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  548. 34120 PRINT"  [212]O SUCCUMB";:PRINT N$
  549. 34121 PRINT"     [183][183][183][183][183][183][183]"
  550. 34130 PRINT"      A.  TO AID
  551. 34140 [153]"      B.  TO OPPOSE
  552. 34150 PRINT"      C.  TO YIELD
  553. 34160 [153]"      D.  TO CHECK
  554. 34170 GET AX$:IF AX$=""THEN 34170
  555. 34175 IF AX$="A"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  556. 34180 IF AX$="C"THEN GOSUB 500:GOTO 34200
  557. 34190 IF AX$<>"C"THEN GOSUB 600
  558. 34194 PRINT S$:PRINT TAB(5)"TO YIELD
  559. 34195 [141] 3500
  560. 34198 :
  561. 34199 :
  562. 34200 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  563. 34205 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  564. 34220 [153]"  ASCEASIBLE";:[153] N$
  565. 34221 [153]"  USRUSRUSRUSRUSRUSRUSRUSR"
  566. 34230 [153]"      A.  CAPABLE
  567. 34240 PRINT"      B.  HARMFUL
  568. 34250 [153]"      C.  BENEFICIAL
  569. 34260 PRINT"      D.  PRACTICABLE
  570. 34270 [161] AX$:[139] AX$[178]""[167] 34270
  571. 34275 [139] AX$[178]"D"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  572. 34280 [139] AX$[178]"D"[167] [141] 500:[137] 34300
  573. 34290 [139] AX$[179][177]"D"[167] [141] 600
  574. 34294 [153] S$:[153] [163]5)"PRACTICABLE
  575. 34295 GOSUB 3500
  576. 34300 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  577. 34305 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  578. 34320 PRINT"  [214]ERSATILE";:PRINT N$
  579. 34321 PRINT"  [183][183][183][183][183][183][183][183][183]"
  580. 34330 PRINT"      A.  WELL-KNOWN
  581. 34340 [153]"      B.  UP-TO-DATE
  582. 34350 PRINT"      C.  MANY-SIDED
  583. 34360 [153]"      D.  AMBIDEXTROUS
  584. 34370 GET AX$:IF AX$=""THEN 34370
  585. 34375 IF AX$="C"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  586. 34380 IF AX$="C"THEN GOSUB 500:GOTO 34400
  587. 34390 IF AX$<>"C"THEN GOSUB 600
  588. 34394 PRINT S$:PRINT TAB(5)"MANY-SIDED
  589. 34395 [141] 3500
  590. 34400 [153]"LOAD":[153] R$;:[153] R1$:[153] R2$
  591. 34405 Q[178]Q[170]1:[153] Q$;Q:[153]"PRINT"
  592. 34420 [153]"  RIGHT$MPERTURBABILITY";:[153] N$
  593. 34421 [153]"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  594. 34430 [153]"      A.  OBSTINACY
  595. 34440 PRINT"      B.  SERENITY
  596. 34450 [153]"      C.  SAGACITY
  597. 34460 PRINT"      D.  CONFUSION
  598. 34470 [161] AX$:[139] AX$[178]""[167] 34470
  599. 34475 [139] AX$[178]"B"[176] AX$[178]"B"[176] AX$[178]"C"[176] AX$[178]"D"[167] [141] 450
  600. 34480 [139] AX$[178]"B"[167] [141] 500:[137] 34500
  601. 34490 [139] AX$[179][177]"B"[167] [141] 600
  602. 34494 [153] S$:[153] [163]5)"SERENITY
  603. 34495 GOSUB 3500
  604. 34500 PRINT"[147]":PRINT R$;:PRINT R1$:PRINT R2$
  605. 34505 Q=Q+1:PRINT Q$;Q:PRINT"[153]"
  606. 34520 PRINT"  [211]TRIDENT";:PRINT N$
  607. 34521 PRINT"  [183][183][183][183][183][183][183][183]"
  608. 34530 PRINT"      A.  SWAGGERING
  609. 34540 [153]"      B.  DOMINEERING
  610. 34550 PRINT"      C.  ANGRY
  611. 34560 [153]"      D.  HARSH
  612. 34570 GET AX$:IF AX$=""THEN 34570
  613. 34575 IF AX$="B"OR AX$="B"OR AX$="C"OR AX$="D"THEN GOSUB 450
  614. 34580 IF AX$="D"THEN GOSUB 500:GOTO 34596
  615. 34590 IF AX$<>"B"THEN GOSUB 600
  616. 34594 PRINT S$:PRINT TAB(5)"SERENITY
  617. 34596 [137] 50000
  618. 50000 [153]"LOADPRINT"
  619. 50100 TT[178]Q[172]4
  620. 50110 W1[178]140[171]TT
  621. 50120 PP[178]SC[173]TT[172]100
  622. 50130 PP%[178]PP[172]100[170].1:PP[178]PP%[173]100
  623. 50200 [153] [163]10)"(null)OU HAD";SC"POINTS"
  624. 50210 [153] [163]10)"OUT OF A POSSIBLE";TT
  625. 50220 [153] [163]10)"FOR A SCORE OF";PP"PERCENT"
  626. 50300 [139] PP[178][177]95 [167] [153] [163]12)"DEF(null)UPERIOR...THAT'S AN 'ATN'.
  627. 50310 IF PP=>90 AND PP=<94 THEN PRINT TAB(12)"[150][197]XCELLENT..THAT'S A '[194]'.
  628. 50320 [139] PP[178][177]80 [175] PP[178][179]89 [167] [153] [163]15)"DEFATNN AVERAGE 'LEN'.
  629. 50330 IF PP=>70 AND PP=<79 THEN PRINT TAB(12)"[150][208]OOR.  [217]OU RATE A '[196]'.
  630. 50340 [139] PP [178][179]69 [167] [153] [163]15)"DEF(null)OU FAILED.
  631. 50400 FOR T=1 TO 2500:NEXT T:PRINT"[147][154]"
  632. 50410 PRINT TAB(10)"[215]OULD YOU LIKE THE"
  633. 50420 PRINT TAB(10)"TEST AGAIN? (Y/N)"
  634. 50500 GET AX$:IF AX$=""THEN 50500
  635. 50510 IF AX$="Y"THEN 30000
  636. 50600 PRINT"[147][154]":POKE 53280,12:POKE 53281,0:POKE 53272,23
  637. 50610 POKE 214,7:PRINT
  638. 50620 PRINT TAB(5)"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]
  639. 50630 [153] [163]5)"-                             <"
  640. 50640 [153] [163]5)"-                             <"
  641. 50650 [153] [163]5)"-                             <"
  642. 50660 [153] [163]5)"-                             <"
  643. 50670 [153] [163]5)"-                             <"
  644. 50680 [153] [163]5)"/>>>>>>>>>>>>>>>>>>>>>>>>>>>>>EXP
  645. 50690 POKE 214,8:PRINT
  646. 50700 PRINT TAB(9)"[150][195]HECKING OUT MY FILES
  647. 50710 [151] 214,10:[153]
  648. 50720 [153] [163]9)"CHR$IVE ME ABOUT 70 SECONDS
  649. 51000 PRINT"[144]LOAD"CHR$(34)"WORD KNOWLEDGE"CHR$(34)",8"
  650. 51010 PRINT"RUN 30"
  651. 51020 POKE 631,19:POKE 632,13:POKE 633,13:POKE 198,3:END
  652.